home *** CD-ROM | disk | FTP | other *** search
/ Sounds Terrific 2 / Sounds Terrific II (1996)(Weird Science)(Disc 2 of 2)[Amiga-PC].iso / midcraft / magazine / archive / midicraft1.dms / midicraft1.adf / MIDICraft-1 < prev    next >
AmigaDOS Script File  |  1995-02-12  |  999b  |  46 lines
  1. .key foo
  2.  
  3. :c/cd :
  4.  
  5. ;$VER :c/type :Text/MIDICraft.ansi
  6. :c/assign libs: :libs
  7. :c/assign s: :s
  8. :c/assign c: :c
  9. :c/assign devs: :devs
  10. :c/assign ENV: RAM:
  11.  
  12. :c/MemCheck 600000
  13. if not warn
  14. echo "*ec"
  15. ;$VER echo "Sorry, insufficient free memory for background music"
  16. else
  17. endif
  18. :c/run >nil: MIDICraft1:c/OctaMEDPlayer MIDICraft1:Music/Mod.Lethal.pp MBEXIT QUIET
  19.    :c/wait 15
  20. echo "*ec"
  21. Echo "                    *e[1mThis issues Default Background Music"
  22. echo " "
  23. echo "                               *e[42mLethal Tomato*e[0m"
  24. echo "                             *e[3mby Graeme Coleman*e[0m"
  25. echo " "
  26. Echo " "
  27. Echo "  When the picture appears, you can get rid of it by pressing"
  28. Echo "  the RIGHT mouse button."
  29. :c/PPSHOW >nil: :Graphics/MetalCoverpic.IFF.pp
  30.  
  31. ;Echo "Sorry, no disk space for any front-picture this time..."
  32.  
  33. :c/Zoomwindows quiet
  34. :c/Men  :s/menu
  35.  
  36.  
  37. MIDICraft1:c/Zoomwindows quiet
  38.  
  39. assign s: sys:s
  40. assign c: sys:c
  41. assign libs: sys:libs
  42. assign devs: sys:devs
  43. cd sys:
  44. assign MIDICraft1: remove
  45.  
  46.